100 REM* SWAP SPEED BY SHAWN K. SMITH
110 S=5120:REM FOR C-128 FROM AHOY!
120 FORD=STOS+29:READY:POKED,Y:NEXT
130 A=INT((S+11)/256):POKES+6,A
140 POKES+1,S+11-256*A
145 POKED,PEEK(824):POKED+1,PEEK(825)
150 SYS(S):PRINT"SWAP SPEED READY.":END
160 DATA 169,011,141,056,003,169,020,141
170 DATA 057,003,096,201,088,208,014,036
180 DATA 215,048,005,032,182,119,208,003
190 DATA 032,199,119,169,088,076